MacFormat 1994 September/macformat-004.iso/Shareware City/Sound/Movie2Snd Folder/Read Me

Text File | 1994-06-11 | 4.7 KB | 289 lines | [ttro/ttxt]

Movie2Snd is a very simple application which extracts soundtracks from
QuickTime movies.

Drop-launch a movie onto the application (or choose a movie from the open dialog).
You will be prompted for a location for the resulting sound file.  That sound
file is a plain ol' System 7 sound file that can be played by opening
(double clicking).

To extract a sound from a CD:
• Choose the CD from the open dialog and select the track you want.















• A save dialog will appear asking you for a save location for the intermediate movie.  Switch back to your hard drive.


















• Use the options button to select the sample you want.
























• The audio will be converted to a QuickTime movie






• A second save dialog will appear, prompting you for the location to save the sound file.















• You can the temporary QuickTime movie after the conversions are done.

Version 1.1 adds better error reporting and uses so-called MultiFinder memory, so it doesn't need a large memory partition.  Note that large movies still require large amounts of memory.  Check the "Largest Unused Block" under "About this Macintosh" in the Finder.

-- Scott Lindsey <[e-mail]>

Movie2Snd is neither a product of nor is supported by Claris Corporation.
This program is freely distributable.  Here's the source:

// (No, this isn't very good example-ware.  It's just a quick hack.)

#include <Aliases.h>
#include <Folders.h>
#include <Movies.h>
#include <Sound.h>
#include <ImageCompression.h>

void MakeSnd(FSSpec *);
void Message(OSErr, Boolean);

Boolean tempMemory;

void main(void)
{
    long    response;
    short     Action, Count;
    OSErr    err;
    AppFile    File;
    FSSpec    fs;
    SFTypeList types = {'MooV'};

    if (!Gestalt(gestaltOSAttr, &response) && (response & 1L<<gestaltRealTempMemory))
        tempMemory = true;

    MaxApplZone();
    InitGraf(&qd.thePort);
    InitFonts();
    InitWindows();
    InitMenus();
    TEInit();
    InitDialogs(0L);
    InitCursor();

    err = Gestalt(gestaltQuickTime, &response);
    Message(err, true);

    EnterMovies();

    CountAppFiles(&Action, &Count);
    if (Action == appPrint)
        ExitToShell();

    if (Count)
    {
        GetAppFiles(Count, &File);
        FSMakeFSSpec(File.vRefNum, 0L, File.fName, &fs);
    }
    else
    {
        StandardFileReply reply;

        StandardGetFilePreview(0L, 1, types, &reply);
        if (!reply.sfGood)
            ExitToShell();
        fs = reply.sfFile;
        Count = 1;
    }

    for (;;)
    {
        MakeSnd(&fs);
        if (!--Count)
            break;
        GetAppFiles(Count, &File);
        FSMakeFSSpec(File.vRefNum, 0L, File.fName, &fs);
    }

    ExitToShell();
}

void MakeSnd(FSSpec *fs)
{
    short refNum, resID = 0;
    Movie movie;
    OSErr err;
    StandardFileReply reply;
    Handle h;
    Size size;

    err = OpenMovieFile(fs, &refNum, fsRdPerm);
    Message(err, true);

    err = NewMovieFromFile(&movie, refNum, &resID, nil, newMovieActive, nil);
    Message(err, true);

    err = CloseMovieFile(refNum);
    // Don't bother with errors here.  Unimportant

    StandardPutFile("\pSave Sound as:", "\pA Sound", &reply);

    if (!reply.sfGood)
        return;

    if (reply.sfReplacing)
    {
        err = FSpDelete(&reply.sfFile);
        Message(err, true);
    }

#ifdef AIFF
    err = ConvertMovieToFile(movie, 0, &reply.sfFile, 'AIFF', '????', smCurrentScript, nil, 0, 0);

#else

#if 0    // "Correct" way to do this, but no handler exists for this conversion...
    err = ConvertMovieToFile(movie, 0, &reply.sfFile, 'sfil', 'movr', smCurrentScript, nil, 0, 0);
#else
     FSpCreateResFile(&reply.sfFile, 'movr', 'sfil', -1);
     Message(ResError(), true);

    refNum = FSpOpenResFile(&reply.sfFile, fsWrPerm);
    Message(ResError(), true);

    if (tempMemory)
    {
        if (TempMaxMem(nil) > MaxBlock())
        {
            h = TempNewHandle(1024, &err);
        }
        else
            h = NewHandle(1024);
    }
    else
        h = NewHandle(1024);

    if (MemError())
    {
        Message(MemError(), false);
        err = -1;
        goto exit;
    }

    if (!h)
        goto exit;

    SetZone(HandleZone(h));
    err = PutMovieIntoTypedHandle(movie, 0, 'snd ', h, 0, GetMovieDuration(movie), 0, 0);
    SetZone(ApplicationZone());
    Message(err, false);
    if (!err)
        AddResource(h, 'snd ', 128, reply.sfFile.name);
exit:
    CloseResFile(refNum);
#endif
#endif    //
    if (err)
        FSpDelete(&reply.sfFile);
}

void Message(OSErr err, Boolean fatal)
{
    Str255 str;
    StringPtr s;

    if (!err)
        return;

    ParamText("\p", "\p", "\p", "\p");

    switch(err)
    {
        case ioErr:
            s = "\pAn I/O error occurred.";
            break;
        case fnfErr:
            s = "\pThe file could not be found.";
            break;
        case memFullErr:
            s = "\pThere is not enough memory for this operation.";
            break;
        case gestaltUnknownErr:
        case gestaltUndefSelectorErr:
            s = "\pQuickTime is required to run this application.";
            break;
        default:
            NumToString(err, str);
            s = "\pUnexpected error: ^1.";
            ParamText(nil, str, nil, nil);
            break;
    }
    ParamText(s, nil, nil, nil);
    StopAlert(128, nil);

    if (fatal)
        ExitToShell();
}